| Filename | (eval 1136)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
| Statements | Executed 10 statements in 15µs |
| Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 9µs | 11µs | Template::Document::__ANON__[:16] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 11µs (9+2) within Template::Document::__ANON__[(eval 1136)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78]:16] which was called:
# once (9µs+2µs) by Template::Document::process at line 163 of Template/Document.pm | ||||
| 2 | 1 | 300ns | my $context = shift || die "template sub called without context\n"; | ||
| 3 | 1 | 2µs | 1 | 2µs | my $stash = $context->stash; # spent 2µs making 1 call to Template::Context::stash |
| 4 | 1 | 300ns | my $output = ''; | ||
| 5 | 1 | 100ns | my $_tt_error; | ||
| 6 | |||||
| 7 | 2 | 2µs | eval { BLOCK: { | ||
| 8 | 1 | 300ns | $output .= "<script type=\"text/javascript\">\n//<![CDATA[\nfunction keep_text(clicked_index) {\n var searchboxes = document.getElementsByClassName(\"head-searchbox\");\n var persist = searchboxes[0].value;\n\n for (i = 0; i < searchboxes.length - 1; i++) {\n if (searchboxes[i].value != searchboxes[i+1].value) {\n if (i === searchboxes.length-2) {\n if (searchboxes[i].value != searchboxes[0].value) {\n persist = searchboxes[i].value;\n } else if (searchboxes.length === 2) {\n if (clicked_index === 0) {\n persist = searchboxes[1].value;\n }\n } else {\n persist = searchboxes[i+1].value;\n }\n } else if (searchboxes[i+1].value != searchboxes[i+2].value) {\n persist = searchboxes[i+1].value;\n }\n }\n }\n\n for (i = 0; i < searchboxes.length; i++) {\n searchboxes[i].value = persist;\n }\n}\n//]]>\n</script>\n"; | ||
| 9 | } }; | ||||
| 10 | 1 | 100ns | if ($@) { | ||
| 11 | $_tt_error = $context->catch($@, \$output); | ||||
| 12 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 13 | } | ||||
| 14 | |||||
| 15 | 1 | 5µs | return $output; | ||
| 16 | } | ||||
| 17 | 1 | 5µs | |||
| 18 | ; |